home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 25 / Mac Magazin and MacEasy Magazine CD - Issue 25.iso / Spiele & Edutainment / Abuse Demo / lisp / powerup.lsp < prev    next >
Lisp/Scheme  |  1996-08-01  |  1KB  |  64 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4. (defun key_ai () (if (touching_bg) 
  5.              (progn 
  6.                (play_sound YEAH_SOUND 127 (x) (y))
  7.                nil) T))
  8.  
  9. (defun hp_up () 
  10.     (next_picture)
  11.  
  12.     (if (and (touching_bg) (with_object (bg) (give_player_health 20)))
  13.        (progn
  14.          (play_sound HEALTH_UP_SND 127 (x) (y))
  15.          nil)
  16.       T))
  17.  
  18.  
  19. (def_char HEALTH
  20.   (funs (ai_fun hp_up))
  21.   (flags (add_front T))
  22.   (range 0 0)
  23.   (states "art/ball.spe" (stopped "heart" )))
  24.  
  25.  
  26. (defun compass_ai ()
  27.   (if (touching_bg)
  28.       (progn
  29.     (with_object (bg) (setq has_compass 1))
  30.     nil)
  31.     T))
  32.  
  33. (def_char COMPASS
  34.   (funs (ai_fun compass_ai))
  35.   (flags (add_front T))
  36.   (range 0 0)
  37.   (states "art/compass.spe" (stopped "compass" )))
  38.  
  39. (defun fast_ai () 
  40.   (next_picture)
  41.   (if (touching_bg) 
  42.       (progn (with_object (bg) 
  43.               (progn
  44.                 (setq special_power FAST_POWER)
  45. ;                (user_fun SET_FAST_TIME 360)
  46.                 (make_view_solid (find_rgb 255 255 255))))
  47.          nil) T))
  48.  
  49.  
  50. (defun fast_cache (type) (list nil (list fast_image)))
  51.  
  52. (def_char POWER_FAST
  53.   (funs (ai_fun fast_ai)
  54.     (get_cache_list_fun fast_cache))
  55.   (flags (add_front T))
  56.   (range 20 20)
  57.   (states "art/misc.spe" (stopped "fast" )))
  58.  
  59.  
  60.  
  61. (setq load_warn nil)
  62. (load "register/powerup.lsp")
  63. (setq load_warn T)
  64.